home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / DIFFWRDS.DAT < prev    next >
Text File  |  1990-03-02  |  349b  |  13 lines
  1. procedure main()
  2.    local limit, s, i
  3.    limit := 100
  4.    s := set([])
  5.    every insert(s,1 to limit)
  6.    every member(s,i := 2 to limit) do
  7.       every delete(s,i + i to limit by i)
  8.    primes := sort(s)
  9.    write("There are ",*primes," primes in the first ",limit," integers.")
  10.    write("The primes are:")
  11.    every write(right(!primes,*limit + 1))
  12. end
  13.